---
title: "FMG-TLC online teaching survey report"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: default
    css: "style.css"
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)

library("readxl")
survey_results <- read_excel("../../data/FMG teachers 2 minute survey  December 2020_January 15, 2021_09.45.xlsx", skip = 1)
```


Column {data-width=300}
-----------------------

Presented are the results of the FMG online teaching survey, conducted by the FMG Teaching & Learning Centre.

### Responses

```{r}
n.responses <- dim(survey_results)[1]
valueBox(n.responses, icon = "fa-pencil")
```

### Teaching tips

```{r}
n.tips <- sum(!is.na(survey_results$`What is one online teaching tip or trick that you would share with fellow teachers?`))
valueBox(n.tips, icon = "fa-comments")
```

Column {data-width=650}
-----------------------------------------------------------------------

### Word cloud

`r names(survey_results)[6]`

```{r}
# Used resource: https://towardsdatascience.com/create-a-word-cloud-with-r-bde3e7422e8a

# install.packages("RColorBrewer")
library(RColorBrewer)
# install.packages("wordcloud2")
library("wordcloud2")
# install.packages("tm")
library(tm)
library("dplyr")

# Create a vector containing only the text
text <- survey_results$`What is one online teaching tip or trick that you would share with fellow teachers?`

docs <- Corpus(VectorSource(text))

# Clean the text

docs <- docs %>%
  tm_map(removeNumbers) %>%
  tm_map(removePunctuation) %>%
  tm_map(stripWhitespace)
docs <- tm_map(docs, content_transformer(tolower))
docs <- tm_map(docs, removeWords, stopwords("english"))

# Create word frequencies

dtm <- TermDocumentMatrix(docs) 
matrix <- as.matrix(dtm) 
words <- sort(rowSums(matrix),decreasing=TRUE) 
df <- data.frame(word = names(words),freq=words)

# Create word cloud

wordcloud2(data=df, size=1.6, color='random-dark')
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}

```

### Chart C

```{r}

```